home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00871_PH-IN fi 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  745 b   |  20 lines
  1. on enterFrame
  2.   global g1erSprNav, exitFrame, gPhLabel, g1erSprLoc, gMaxBoutons, gEtudAct, gEtudPrec, gEtatEtud, gSujet0, gPartie, gTraduit, gListCodPhy, gSujAct, gCDpath, gRetour, gLabel, gLocLabel, gVersion
  3.   set gMaxBoutons to 24
  4.   set gEtudPrec to gEtudAct
  5.   set gEtudAct to "FI"
  6.   set gLocLabel to "PH:RN fi"
  7.   set gLabel to gRetour
  8.   repeat with i = g1erSprLoc to gMaxBoutons
  9.     set the visible of sprite i to 0
  10.   end repeat
  11.   set the visible of sprite 2 to 1
  12.   set the visible of sprite 3 to 0
  13.   set the visible of sprite 4 to 0
  14.   set the visible of sprite 46 to 0
  15.   set the visible of sprite 47 to 0
  16.   set nomfic to gVersion & "P" & getAt(gListCodPhy, gSujAct) & ".PIC"
  17.   set the fileName of cast "FICHE PHY" to nomfic
  18.   put nomfic
  19. end
  20.